home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -readerstuff- / pete_sullivan / installme1st / rexx / vitalon.vcrx < prev   
Text File  |  1999-04-21  |  934b  |  37 lines
  1. /* STARTNET AREXX SCRIPT FOR STARTING Miami */
  2. IF ~ SHOW("PORTS","MIAMI.1") THEN
  3.     DO
  4.     ADDRESS COMMAND "Run >NIL: Miami:Miami "
  5.     ADDRESS COMMAND "WaitForPort MIAMI.1"
  6.     IF ~ SHOW("PORTS","MIAMI.1") THEN
  7.         DO
  8.         SAY "Miami Did Not Load"
  9.         ADDRESS COMMAND "WAIT 10"
  10.         END
  11.     END
  12. EXIT    
  13.  
  14.  
  15. WINDOW:
  16.             ok=open('VitalConnect-Online','CON:160/100/100/22/VitalConnect-Online/')
  17.             a=1
  18.             cleft='08'x
  19.             call writeln 'VitalConnect-Online','     WAIT!'
  20.             call writeln 'VitalConnect-Online','Vital Connect is'
  21.             call writech 'VitalConnect-Online',' now ONLINE!'
  22.             ADDRESS "COMMAND" "wait 3"
  23.             DO FOREVER
  24.                 IF ~SHOW('Ports','MIAMI.1') THEN exit
  25.                 ADDRESS 'MIAMI.1' 'ISONLINE'
  26.                 result=rc
  27.                 IF ~result then exit
  28.                 call writech 'VitalConnect-Online',cleft
  29.                 a=a+1
  30.                 ADDRESS "COMMAND" "wait 3"
  31.                 If a=14 then Do
  32.                     a=1
  33.                     call writech 'VitalConnect-Online','Connecting'
  34.                 END
  35.  
  36.             END
  37. RETURN